read_mines <- function(filepath) {
  require(stringr)
  year <- stringr::str_extract(filepath, "[0-9]{4}")
  df <- read.csv(filepath, skip = 4)
  df$year <- year
  return(df)
}
